home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / cdrom / paudsc2.scr < prev    next >
Encoding:
Text File  |  1994-09-07  |  1.1 KB  |  37 lines
  1. @thread PAUDSC2.LOG
  2. @NewAlias cd CDROM.GRA
  3. @IMPORT SYSINFO.TXT
  4. cd LOG $PROMPT="LOGGING PAUDSC2"
  5. cd LOG $PROMPT="THREAD 1"
  6. cd set ADDRESSMODE=LOGICALBLOCK
  7. cd set SECTORSTART=10000 SECTORCOUNT=20000
  8. cd CDROM_OPEN
  9. cd CDROM_PLAYAUDIO 
  10. cd response $PROMPT="PLAYING AUDIO FOR 30 SECONDS" $PAUSE=30
  11. cd CDROM_STOPAUDIO
  12. cd response $PROMPT="AUDIO WILL RESUME IN 40 SECOND" $PAUSE=40
  13. cd CDROM_RESUMEAUDIO
  14. cd response $PROMPT="PLAYING AUDIO FOR 15 SECONDS" $PAUSE=15
  15. cd CDROM_STOPAUDIO
  16. cd CDROM_CLOSE
  17. @flush cd
  18. *
  19. *
  20. @thread PAUDSC2.LOG
  21. @NewAlias cd1 CDROM.GRA
  22. @IMPORT SYSINFO2.TXT
  23. cd1 LOG $PROMPT="LOGGING PAUDSC2"
  24. cd1 LOG $PROMPT="THREAD 2"
  25. cd1 set ADDRESSMODE=LOGICALBLOCK 
  26. cd1 set SECTORSTART=15000 SECTORCOUNT=30000
  27. cd1 CDROM_OPEN
  28. cd1 response $PROMPT="WAITING FOR AUDIO TO STOP" $PAUSE=40
  29. cd1 CDROM_PLAYAUDIO
  30. cd1 response $PROMPT="PLAYING AUDIO FOR 25 SECONDS" $PAUSE=25
  31. cd1 CDROM_STOPAUDIO
  32. cd1 response $PROMPT="AUDIO WILL RESUME IN 25 SECONDS" $PAUSE=25
  33. cd1 CDROM_RESUMEAUDIO
  34. cd1 response $PROMPT="PLAYING AUDIO FOR 25 SECONDS" $PAUSE=25
  35. cd1 CDROM_STOPAUDIO
  36. cd1 CDROM_CLOSE
  37. @flush cd1